(defun c:lead ()
  (command "_leader"
	   (setq a (getpoint))
	   (getpoint)
	   ""
	   (rtos (cadr a) 2 2)
	   ""
  )
)